% This is the lilypond source file for Delia Derbyshire's intro for
% "Poets in Prison" created by Martin Guy <martinwguy@gmail.com>
% 
% For further info on this piece of music
%     see https://wikidelia.net/wiki/Poets_in_Prison

\version "2.18.2"

\header {
  title = "Poets in Prison - Intro"
  % We abuse the category names to get three lines
  composer = "Delia Derbyshire"
  opus = "1970"
  tagline = "Typeset from Delia's manuscript by Martin Guy <martinwguy@gmail.com> 5th July 2021. See wikidelia.net/wiki/Poets_in_Prison_-_Intro"
}

soprano = \relative c' {
  \stemUp
  \time 8/4
  g4 c d2 ees4 c d g | c,2 d ees4 c d2 |
  <ees g bes>4 <d g> <d f a> <c f> <c ees g> <c ees> <b d>2 |
  \time 3/8 <g c>8 <g c> <g c> |
  \time 4/4 c2 c8 d d d | ees f g4~g8 g, g g | c2
}
midisoprano = \relative c' {
  \stemUp
  \time 8/4
  g4 c d2 ees4 c d g | c,2 d ees4 c d2 |
  <ees g bes>4 <d g> <d f a> <c f> <c ees g> <c ees> <b d>2 |
  \time 3/8 <g c>8 <g c> <g c> |
  \time 4/4 c2 c8 d d d | ees f g4~g8 g, g g |
  %
  \time 8/4 c,2 d ees4 c d2 |
  <ees g bes>4 <d g> <d f a> <c f> <c ees g> <c ees> <b d>2 |
}

alto = \relative c' {
  \time 8/4
  \stemDown
  g2 bes c b | g8 aes g aes g f g f g aes g f g aes g aes |
  s1 s1 |
  \time 3/8 s4. | \time 4/4 g8 aes g aes g f g f | g aes g f g aes g aes |
  g aes g aes
}

midialto = \relative c' {
  \time 8/4
  \stemDown
  g2 bes c b | g8 aes g aes g f g f g aes g f g aes g aes |
  s1 s1 |
  \time 3/8 s4. |
  \time 4/4 g8 aes g aes g f g f | g aes g f g aes g aes |
  %
  \time 8/4
  g8 aes g aes g f g f g aes g f g aes g aes |
  s1 s1 |
}

bass = \relative c' {
  \time 8/4
  \stemDown
  <c, ees>2 <bes f'> <aes ees'> <g d'> | <c ees>2 <bes f'> <aes ees'> <g d'> |
  <ees ees'>4 <bes' g'> <d d,> <aes f'>  <c c,> <aes aes,> <g g,>2
  \time 3/8 s4. |
  \time 4/4 <c ees>2 <bes f'> | <aes ees'> <g d'> | <c ees>
}
midibass = \relative c' {
  \time 8/4
  \stemDown
  <c, ees>2 <bes f'> <aes ees'> <g d'> | <c ees>2 <bes f'> <aes ees'> <g d'> |
  <ees ees'>4 <bes' g'> <d d,> <aes f'>  <c c,> <aes aes,> <g g,>2
  \time 3/8 s4. |
  \time 4/4 <c ees>2 <bes f'> | <aes ees'> <g d'>
  %
  \time 8/4
  <c ees>2 <bes f'> <aes ees'> <g d'> |
  <ees ees'>4 <bes' g'> <d d,> <aes f'>  <c c,> <aes aes,> <g g,>2
}

\paper {
  % Don't print page numbers
  printpagenumber = ##f
  % Don't indent the first line of the score
  indent = #0
}
% Don't print bar numbers
\layout {
  \context {
    \Score
    \remove "Bar_number_engraver"
  }
}

\score {
 {
  \new PianoStaff
  <<
   % No curly bracket at the start of the staves, thank you
   \set GrandStaff.systemStartDelimiter = #'SystemStartBar

   % Treble staff of entire piece
   \new Staff {
    % Set tempo for MIDI output but don't print it
    \tempo 4=120
    \set Score.tempoHideNote = ##t

    \key c \major
    \clef treble

    \context Staff <<
      \new Voice { \soprano }
      \new Voice { \alto }
    >>
   }

   % Bass staff of entire piece
   \new Staff {
    \key c \major
    \clef bass
    \new Voice { \bass }
   }
  >>

 }
 \layout {}
}

% Separate version for midi, to include the presumed repeat. A-B-A-ish
\score {
 {
  \new PianoStaff
  <<
   % No curly bracket at the start of the staves, thank you
   \set GrandStaff.systemStartDelimiter = #'SystemStartBar

   % Treble staff of entire piece
   \new Staff {
    % Set tempo for MIDI output but don't print it
    \tempo 4=120
    \set Score.tempoHideNote = ##t

    \key c \major
    \clef treble

    \context Staff <<
      \new Voice { \midisoprano }
      \new Voice { \midialto }
    >>
   }

   % Bass staff of entire piece
   \new Staff {
    \key c \major
    \clef bass
    \new Voice { \midibass }
   }
  >>

 }
 \midi {}
}
